home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
173bmrg.zip
/
CNFG1028.MRG
< prev
next >
Wrap
Text File
|
1990-10-28
|
10KB
|
205 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against 17.3A\CONFIG.BAS to produce 17.3B\CONFIG.BAS
* 17.3A\CONFIG.BAS: Date 8-26-1990 Size 161221 bytes
* ------------[ Created 10-28-1990 12:00:10 ]------------
* REPLACING old line(s) by new
' $linesize: 132
* ------[ first line different ]------
' $title: 'CONFIG 17.3B, Copyright 1983-90 by D. Thomas Mack' ' KG102201
' WARNING !!! DO NOT CHANGE, BYPASS OR REMOVE LINE 10000-10230
* REPLACING old line(s) by new
* ------[ first line different ]------
10000 ' CONFIG.BAS (RBBS-PC VERSION 17.3B) ' KG102201
' by D.Thomas Mack
' The Second Ring
' 39 Cranbury Dr.
' Trumbull, CT. 06611
'
' *******************************NOTICE**********************************
' * A limited license is granted to all users of this program and it's *
' * companion program, RBBS-PC (ver. 17.3B), to make copies of this *
' * program and distribute the copies to other users, on the following *
' * conditions *
' * 1. The copyright notices contained within this program are not *
' * altered, bypassed, or removed. *
' * 2. The program is not to be disrtibuted to others in modified *
' * form (i.e. the line numbers must remain the same). *
' * 3. No fee is charged (or any other consideration received) *
' * for coping or distributing these programs without an express *
' * written agreement with D. Thomas Mack, The Second Ring, *
' * 39 Cranbury Dr., Trumbul, CT. 06611 *
' * *
' * Copyright (c) 1983-1990 D. Thomas Mack, The Second Ring *
' ***********************************************************************
' $INCLUDE: 'CNFG-VAR.BAS'
CLEAR
'
' ****************************************************************************
' * DISPLAY THE CONFIG TITLE PAGE
' ****************************************************************************
'
WIDTH 80
CLS
NOT.YET.IN$ = "[Not Implemented]" ' Msg used in config for parm not yet implemented
NONE.PICKED$ = "<none>" ' Standardized message
NUM.FILES = 8
NUM.GLOBAL = 4
NUM.MAIN = 18
NUM.SYSOP = 7
NUM.UTILITY = 12
NUM.LIBRARY = 7
VERSION.NUMBER$ = "17.3B"
I! = FRE(C$)
KEY OFF
CALL CNFGINIT
PRINT TAB(60)"tm"
PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
PRINT
PRINT TAB(17)"Capital PC User Group User-Supported Software"
PRINT
X$ = " "
PRINT "Copyright (c) 1983-1990 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
PRINT
PRINT X$;" If you use RBBS-PC " + CONFIG.VERSION$ + " and find"
PRINT X$;" it valuable, consider contributing to"
PRINT ""
PRINT X$;" Capital PC Software Exchange"
PRINT X$;" Post Office Box 6128"
PRINT X$;" Silver Spring, Maryland 20906"
PRINT
PRINT X$;" You are free to copy and share RBBS-PC provided"
PRINT X$;" 1. This program is not distributed in modified form."
PRINT X$;" 2. No fee or consideration is charged for RBBS-PC itself."
* REPLACING old line(s) by new
25850 CALL ASKRO ("Enter " + A$ + " DOS sub-directory name (CR to end). ",24,HJ$)
CALL ALLCAPS (HJ$)
IF LEN(HJ$) < 1 THEN _
RETURN
* ------[ first line different ]------
X$ = HJ$ ' DA102402
IF LEN(X$) = 2 AND INSTR(X$,":") = 2 THEN _ ' DA102402
RETURN
I = INSTR(X$,":") ' DA102402
IF I = 2 THEN _ ' DA102402
I = I + 1 _ ' DA102402
ELSE _ ' DA102402
GOTO 25850 ' DA102402
WHILE I <= LEN(X$) ' DA102402
Y = INSTR(I,X$,"\") ' DA102402
IF Y = 0 THEN _ ' DA102402
Y = LEN(X$) + 1 ' DA102402
L1 = Y - I ' DA102402
GOSUB 25876 ' DA102402
IF I <> 0 THEN _ ' DA102402
GOTO 25850 ' DA102402
I = Y + 1 ' DA102402
WEND ' DA102402
RETURN ' DA102402
* REPLACING old line(s) by new
25876 HJ$ = MID$(X$,I,L1)
* ------[ first line different ]------
I = 1 ' DA102402
IF LEN(HJ$) > 12 THEN _
RETURN ' DA102402
L1 = INSTR(HJ$,".")
IF L1 = 0 AND (LEN(HJ$) > 8) THEN _ ' DA102402
RETURN ' DA102402
IF L1 > 8 THEN _ ' DA102402
RETURN ' DA102402
IF L1 > 0 AND (LEN(HJ$) - L1 > 3) THEN _ ' DA102402
RETURN ' DA102402
* REPLACING old line(s) by new
25920 FOR J = 1 TO LEN(HJ$)
X = ASC(MID$(HJ$,J,1))
IF (X > 63 AND X < 91) THEN _
GOTO 26020
IF (X > 47 AND X < 58) THEN _
GOTO 26020
IF (X = 33) THEN _
GOTO 26020
IF (X > 34 AND X < 42) THEN _
GOTO 26020
IF (X > 43 AND X < 47) THEN _
GOTO 26020
IF (X > 96 AND X < 124) THEN _
GOTO 26020
IF (X = 125) THEN _
GOTO 26020
* ------[ first line different ]------
I = 1 ' DA102402
RETURN ' DA102402
* REPLACING old line(s) by new
26020 NEXT
* ------[ first line different ]------
I = 0 ' DA102402
RETURN
'
' * VERIFY THAT THE DISK DRIVE IS ONE ELIGIBLE FOR DOWNLOADING
'
* REPLACING old line(s) by new
60010 '* HANDLE ERROR CONDITIONS *
IF ERR = 62 AND _
(ERL = 11600 OR _
ERL = 11620 OR _
ERL = 11640 OR _
ERL = 11660 OR _
ERL = 11680 OR _
ERL = 11700 OR _
ERL = 11705 OR _
ERL = 11706) THEN _
PRINT CONFIG.FILENAME$ + _
" from a version earlier than " + CONFIG.VERSION$ + " on default drive." : _
PRINT "Please delete and rerun CONFIG." : _
RESUME 60340
IF ERL = 15780 AND ERR = 5 AND _
INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _
RESUME 16073
IF ERL = 22340 THEN _ ' KG073103
RESUME 22342 ' KG073103
IF ERL = 31000 AND ERR = 58 THEN _
KILL A$ : _
RESUME 31000
IF ERL = 31030 AND ERR = 58 THEN _
KILL A$ : _
RESUME 31030
IF ERL = 22120 AND ERR = 6 THEN _
RESUME 22100
* ------[ first line different ]------
IF ERL = 23738 AND ERR = 57 THEN _ ' KG101203
RESUME 23738 ' KG101203
IF ERL = 24750 AND ERR = 58 THEN _
KILL A$ : _
RESUME 24750
IF ERL = 31020 THEN _
PRINT "Unable to kill ";MAIN.MESSAGE.FILE$;". Error";STR$(ERR):_
RESUME 31035
IF ERL = 50490 AND ERR = 58 THEN _
RESUME 50500
IF ERL = 50540 AND ERR = 58 THEN _
RESUME 50550
IF ERL = 50490 OR ERL = 50540 THEN _
RESUME 15230
IF ERL = 60471 THEN _
IF ERR <> 76 THEN _
RESUME 60478 _
ELSE RESUME 60474
IF ERL = 60480 THEN _
PRINT "ERROR -";ERR;" UNABLE TO CREATE SUBDIRECTORY" : _
RESUME 60478
IF ERR = 61 THEN _
PRINT "ERROR - IBM DOS DISKETTE FULL " : _
RESUME 60340
IF ERR = 67 THEN _
PRINT "ERROR - IBM DOS DIRECTORY FULL" : _
RESUME 60340
IF ERR = 70 THEN _
PRINT "DISKETTE IN DRIVE IS WRITE PROTECTED" : _
RESUME 60340
IF ERR = 71 THEN _
PRINT "DRIVE DOOR OPEN OR MISSING DISKETTE" : _
RESUME 60340
IF ERR = 72 THEN _
PRINT "ERROR - UNFORMATTED IBM DOS DISKETTE IN DRIVE" : _
RESUME 60340
PRINT "+++ Error";ERR;" in line ";ERL "occurred at " TIME$ " on " DATE$